home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / places.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  37.9 KB  |  914 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  4.    GET-SETF-METHOD-MULTIPLE-VALUE REMOVE-OLD-DEFINITIONS
  5.    #Y(GET-SETF-METHOD-MULTIPLE-VALUE
  6.       #245Y(00 01 00 01 00 08 39 01 5B AB 1A 80 E0 36 01 6A A4 01 02 AA 73 01
  7.             D4 AD AD 73 03 AD 3C 05 19 06 36 01 6A A4 01 02 8C 04 1A 0C 8B 00
  8.             7B 01 36 01 6A A4 7B 02 7A 00 92 20 71 A9 78 65 01 AA AA AD 73 01
  9.             AF AE B0 73 01 31 02 20 72 8B 09 99 72 3C 05 19 0A 8C 01 AB AF 34
  10.             02 19 07 14 85 2D 41 8B 00 A8 23 02 6E 01 03 D7 8C 06 5B 1A 3A 74
  11.             06 C1 EC 8A 06 1C 1A 1E D8 A9 8B 0A 5A 02 A8 86 A1 76 A8 7B 03 1A
  12.             1E 7E 01 00 AA AF 85 28 60 89 06 04 AA 85 AA 68 36 01 6A A4 A8 7B
  13.             06 A9 7B 05 A8 7B 04 16 01 7C 02 7A 01 A9 84 B6 5A 16 03 8B 05 A9
  14.             30 65 55 EA 36 01 6A A4 AB 6A 65 AB 6A 65 AA 73 01 8C 08 AD AD 6E
  15.             02 AD 3C 05 19 0B A8 85 2D FF 3C 92 1F 12 8B 00 86 2D 0D 8B 00 D5
  16.             36 01 6A 98 89 00 FF 77 16 01 92 EB 14 AC 77 5E 00 A9 93 22 5B D9
  17.             A9 5A 01
  18.            )
  19.       SETQ SETF-EXPANDER -5. 0. "The argument ~S to ~S should be a keyword."
  20.       "Argument ~S is not a SETF place."
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-3 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  23.    GET-SETF-METHOD REMOVE-OLD-DEFINITIONS
  24.    #Y(GET-SETF-METHOD
  25.       #34Y(00 01 00 01 00 08 39 01 AA AA 2E 00 3E 05 94 1F 0D 94 54 1B 09 AC AC
  26.            AC AC AC 3C 05 19 08 D5 B0 5A 01
  27.           )
  28.       GET-SETF-METHOD-MULTIPLE-VALUE
  29.       "SETF place ~S produces more than one store variable."
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  32.    DOCUMENTATION REMOVE-OLD-DEFINITIONS
  33.    #Y(DOCUMENTATION
  34.       #28Y(00 02 00 00 00 03 AA 86 2D 0D AA D6 36 01 6A 98 AA 36 01 30 99 19 03
  35.            D4 D5 AC 5A 02
  36.           )
  37.       "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  38.       DOCUMENTATION-STRINGS
  39.   )  )
  40. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  41.    %SET-DOCUMENTATION REMOVE-OLD-DEFINITIONS
  42.    #Y(%SET-DOCUMENTATION
  43.       #115Y(00 03 00 00 00 04 AB 86 2D 1A 8A 01 80 55 AB D6 36 01 6A 98 AB AB
  44.             66 03 04 8A 00 05 AC D6 AA 30 9C 94 19 05 D4 D5 AD 5A 02 AB D6 36
  45.             01 6A 98 A8 5B 1A 2A D7 5A 00 71 94 54 71 2F D2 1A 0C 89 00 75 94
  46.             54 54 EC AE D6 AC 30 9C 02 19 07 93 54 1F 62 8B 01 98 21 68 93 54
  47.             71 94 EB 62 01 93 20 6D 00 19 07 AB D6 36 01 6A 98 AB 36 01 85 99
  48.             FF B9 00 19 04
  49.            )
  50.       "~S: first argument ~S is illegal, not a symbol" DOCUMENTATION
  51.       DOCUMENTATION-STRINGS "REMF: property list with an odd length" %PUTF
  52.   )  )
  53. #Y(#:TOP-LEVEL-FORM-6
  54.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PUSH
  55.    REMOVE-OLD-DEFINITIONS MACRO
  56.    #Y(PUSH
  57.       #100Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2C 80 43 94 54 70 95 54
  58.             54 70 A8 85 2D 3D 36 01 6A A4 A9 AD 2E 04 3E 05 AC AC AF B2 73 02
  59.             73 01 8A 02 0F 8B 02 8B 02 73 02 7B 00 7A 02 7A 01 89 02 71 8B 05
  60.             D7 B2 AE 73 03 73 02 7B 00 D9 A9 6A 65 AE 59 03 19 0E AA 2D 01 19
  61.             03 D6 A9 D7 AC AC 73 03 59 03 19 05
  62.            )
  63.       3. MACRO-CALL-ERROR SETQ CONS GET-SETF-METHOD LET*
  64.   )  )
  65. #Y(#:TOP-LEVEL-FORM-7
  66.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  67.    DEFINE-SETF-METHOD REMOVE-OLD-DEFINITIONS MACRO
  68.    #Y(DEFINE-SETF-METHOD
  69.       #250Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 D3 94 54 70 95 54
  70.             54 70 96 54 54 71 AA 86 2D 80 C8 A8 5C AE 2F 64 3E 03 89 02 02 C1
  71.             EC D8 AE 6A A0 6B 02 13 69 F3 AD A9 2E 05 3E 02 C4 10 07 C4 10 08
  72.             00 10 09 00 10 0A 00 10 0B 00 10 0C BB E1 5E 16 E2 2B 04 0F 89 13
  73.             03 E4 7B 16 E2 67 11 E6 63 0A 6A 65 89 19 80 85 00 14 63 0B 5E 1C
  74.             6B 03 20 6B 02 1F 8A 01 14 E8 AA E9 5D 16 5D 17 5E 21 73 02 5D 18
  75.             6B 03 1F AB 59 04 EA 5D 19 5D 1A 5D 1B 5E 19 E2 89 19 02 03 1C 14
  76.             73 02 89 19 80 56 03 1D 14 AE 73 01 6B 02 20 6B 03 1F 5D 1E 5D 17
  77.             5E 21 73 02 5D 1F 5D 20 5D 21 5D 22 5E 1F 73 02 73 03 73 04 5D 23
  78.             5D 17 5E 22 73 02 5D 24 5D 17 5E 1F 73 02 73 04 5D 17 5E 22 73 02
  79.             59 06 16 02 12 06 19 0C AA 2D 01 19 03 D6 AB 5A 01 E7 04 1A 72 59
  80.             01 1A FF 73 00 1A FF A8
  81.            )
  82.       3. MACRO-CALL-ERROR
  83.       "The name of the access function must be a symbol, not ~S" (NIL) "SETF-"
  84.       REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS
  85.       %DEFAULT-FORM (CDR %LAMBDA-LIST) %LAMBDA-LIST ANALYZE1
  86.       (IGNORE %LAMBDA-LIST) MAKE-LENGTH-TEST LET* DECLARE IF ERROR
  87.       "The SETF expander for ~S may not be called with ~S arguments." QUOTE
  88.       ((1- (LENGTH %LAMBDA-LIST))) EVAL-WHEN (LOAD COMPILE EVAL) DEFUN ENV
  89.       ((DECLARE (IGNORE ENV))) %PUT 'SETF-EXPANDER CONS -5. FUNCTION
  90.       %SET-DOCUMENTATION 'SETF
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-8
  93.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFSETF
  94.    REMOVE-OLD-DEFINITIONS MACRO
  95.    #Y(DEFSETF
  96.       #326Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 2B 94 54 70 95 54 71
  97.             92 1F 0A 8B 00 85 34 05 8B 00 85 2D 2D 92 1F 10 8B 00 86 34 0B 92
  98.             54 1F 07 92 54 70 85 34 80 63 5D 27 AA 5A 01 AA 2D 01 19 03 DD 8C
  99.             07 5A 01 98 54 54 1B 76 DE 99 54 70 5A 01 D6 D7 D8 D9 AD 73 02 DA
  100.             D9 8B 06 73 02 73 04 DB D9 AE 73 02 DC 98 54 54 1B 5B 98 54 53 1C
  101.             06 98 54 70 86 2E 50 98 54 70 73 04 D9 AE 73 02 59 05 19 05 E1 5A
  102.             00 0E 11 1A 80 5E 03 1D 1A 80 66 5D 1F 04 1C 72 59 01 1A 80 68 92
  103.             54 70 6A 63 DF 87 01 2B 0E 92 54 70 6A 63 E0 87 01 2B 55 E2 E3 2E
  104.             10 92 54 71 5C AD 2F 64 3E 03 5B 8B 04 97 54 53 70 CA 10 11 CA 10
  105.             12 00 10 13 00 10 14 00 10 15 00 10 16 BB 5D 17 5E 1B 5D 18 2B 04
  106.             19 5D 1A BC 36 03 83 DC FF 9F 03 1B FE 5D 1C 5D 18 BC 73 02 8A 15
  107.             FF 96 00 14 5D 1E 63 14 6A 65 89 1B FF 8F 00 14 63 15 5E 1E 6B 03
  108.             20 6B 02 1F 73 01 6B 02 20 31 02 1F 12 06 16 01 EA D6 5D 20 D8 D9
  109.             B2 73 02 5D 21 5D 22 AF 5D 23 5D 24 B7 68 25 B1 73 03 73 03 73 04
  110.             DB D9 B3 73 02 5D 26 B0 73 04 D9 B3 73 02 59 05 19 0A
  111.            )
  112.       2. MACRO-CALL-ERROR EVAL-WHEN (LOAD COMPILE EVAL) %PUT QUOTE
  113.       'SETF-EXPANDER %SET-DOCUMENTATION 'SETF
  114.       "Too many arguments to DEFSETF: ~S"
  115.       "The doc string to DEFSETF must be a string: ~S" 1. 0.
  116.       "Missing store variable in DEFSETF."
  117.       "The excess variables will be ignored."
  118.       "Only one store variable is allowed in DEFSETF." CERROR %ARG-COUNT
  119.       %MIN-ARGS %RESTP %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM
  120.       (CDR %ACCESS-ARGLIST) %ACCESS-ARGLIST ANALYZE1 &KEY -1. LAMBDA
  121.       ((DECLARE (IGNORE %ACCESS-ARGLIST))) LET* DECLARE (LOAD COMPILE EVAL)
  122.       'SETF-EXPANDER CONS FUNCTION "SETF-" CONCAT-PNAMES 'SETF
  123.       "Illegal syntax in DEFSETF for ~S"
  124.   )  )
  125. #Y(#:TOP-LEVEL-FORM-9
  126.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) POP
  127.    REMOVE-OLD-DEFINITIONS MACRO
  128.    #Y(POP
  129.       #108Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2C 80 45 94 54 70 A8 85
  130.             2D 80 42 A8 AB 2E 06 3E 05 AC AC 5B 8A 02 0F 8B 02 8B 02 73 02 7B
  131.             00 7A 02 7A 01 89 02 71 8B 05 AC 73 02 7B 00 DB A9 6A 65 D6 D7 8B
  132.             09 73 02 D8 8B 0A D9 8B 0C 73 02 73 03 B1 73 04 59 03 19 0C AA 2D
  133.             01 19 03 D6 D7 AA 73 02 D8 AB D9 AD 73 02 73 03 59 03 19 04
  134.            )
  135.       2. MACRO-CALL-ERROR PROG1 CAR SETQ CDR GET-SETF-METHOD LET*
  136.   )  )
  137. #Y(#:TOP-LEVEL-FORM-10
  138.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PSETF
  139.    REMOVE-OLD-DEFINITIONS MACRO
  140.    #Y(PSETF
  141.       #88Y(00 01 00 01 00 08 39 01 8C 02 A8 01 02 1A 38 D4 D5 B0 5A 02 94 54 1F
  142.            77 8B 02 AE 2E 02 3E 05 AC AC 8A 01 0F 8B 01 8B 01 73 02 7B 08 7A 01
  143.            7A 00 89 01 71 16 02 8B 02 9A 54 70 73 02 7B 06 A9 7B 05 16 05 94 54
  144.            54 EC 94 20 4A D7 AA 6A 65 AA D8 6B 02 20 31 02 1F 19 07
  145.           )
  146.       "~S called with an odd number of arguments: ~S" PSETF GET-SETF-METHOD
  147.       LET* (NIL)
  148.   )  )
  149. #Y(#:TOP-LEVEL-FORM-11
  150.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) PUSHNEW
  151.    REMOVE-OLD-DEFINITIONS MACRO
  152.    #Y(PUSHNEW
  153.       #108Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2D 80 49 94 54 70 95 54
  154.             54 70 96 54 54 71 A9 85 2D 3F 36 01 6A A4 AA AE 2E 04 3E 05 AC AC
  155.             AF B3 73 02 73 01 8A 02 0F 8B 02 8B 02 73 02 7B 00 7A 02 7A 01 89
  156.             02 71 8B 05 D7 B2 AE B5 6B 03 1F 73 02 7B 00 D9 A9 6A 65 AE 59 03
  157.             19 0F AA 2D 01 19 03 D6 AA D7 AD AD AD 6B 03 1F 59 03 19 06
  158.            )
  159.       3. MACRO-CALL-ERROR SETQ ADJOIN GET-SETF-METHOD LET*
  160.   )  )
  161. #Y(#:TOP-LEVEL-FORM-12
  162.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) REMF
  163.    REMOVE-OLD-DEFINITIONS MACRO
  164.    #Y(REMF
  165.       #167Y(00 01 00 01 00 08 39 01 AA 6A 63 D4 87 01 2C 80 91 94 54 70 95 54
  166.             54 70 A9 AC 2E 02 3E 05 AC AC 5B 36 01 6A A4 36 01 6A A4 36 01 6A
  167.             A4 8A 05 0F 8B 05 8B 05 73 02 7B 03 7A 05 7A 04 89 05 71 8B 08 AF
  168.             73 02 7B 03 AA B4 73 02 7B 03 D7 AC 6A 65 D8 AC 8B 0C D9 AF 73 02
  169.             73 03 AC 5B AF 73 03 73 02 DA AE 73 02 C5 72 DC DA DD B1 73 02 73
  170.             02 C8 72 DF E0 B2 73 02 B3 73 03 E1 B1 E2 DD B4 73 02 D9 B6 73 02
  171.             73 03 E3 E4 8B 15 D9 8B 17 73 02 73 03 BC 73 03 73 04 E5 6B 02 1F
  172.             73 03 73 04 59 03 19 10 AA 2D 01 19 03
  173.            )
  174.       3. MACRO-CALL-ERROR GET-SETF-METHOD LET* DO CDDR ATOM (NIL) COND CDR
  175.       ((ERROR "REMF: property list with an odd length")) EQ CAR IF RPLACD PROGN
  176.       SETQ ((RETURN T))
  177.   )  )
  178. #Y(#:TOP-LEVEL-FORM-13
  179.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) ROTATEF
  180.    REMOVE-OLD-DEFINITIONS MACRO
  181.    #Y(ROTATEF
  182.       #108Y(00 01 00 01 00 08 39 01 8C 02 8A 00 09 92 54 1C 08 A8 01 04 1A 3F
  183.             00 19 04 D4 8B 01 D5 31 02 1F 19 04 8B 04 B0 2E 02 3E 05 AC AC 8A
  184.             01 0F 8B 01 8B 01 73 02 7B 0A 7A 01 7A 00 89 01 71 16 02 AE A9 73
  185.             02 7B 08 89 05 03 7E 08 05 A9 7B 07 7E 02 06 16 05 7A 04 96 20 4A
  186.             A8 AA 2F D1 D7 AC 6A 65 AC 6A 65 D8 6B 02 20 31 02 1F 19 09
  187.            )
  188.       PROGN (NIL) GET-SETF-METHOD LET* (NIL)
  189.   )  )
  190. #Y(#:TOP-LEVEL-FORM-14
  191.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01)
  192.    DEFINE-MODIFY-MACRO REMOVE-OLD-DEFINITIONS MACRO
  193.    #Y(DEFINE-MODIFY-MACRO
  194.       #272Y(00 01 00 01 00 08 D4 AB 6A 63 D5 88 02 2F 80 41 94 54 70 95 54 54
  195.             70 96 54 54 54 70 AD 69 BD 01 02 AC 5B 8A 01 80 5E 7E 01 00 14 23
  196.             03 80 50 A8 23 04 2E A8 23 07 3D A8 23 08 39 A8 23 09 35 A8 85 2D
  197.             34 A8 86 34 05 8B 00 85 2D 2E C9 14 A9 5A 01 AA 2D 02 19 03 D9 B0
  198.             95 54 70 5A 02 16 02 1A 26 93 54 70 86 2D 6F 93 54 53 EC 93 54 54
  199.             1C 6D DA AA 5A 01 C8 1A 56 92 1A 02 92 53 14 7B 03 7A 01 89 01 FF
  200.             A2 16 02 A9 78 65 01 E0 AE E1 AF E2 31 02 20 72 AD E3 E4 E5 E6 E7
  201.             E8 E9 5D 16 5D 17 5D 18 5D 19 5D 1A BB 73 02 5D 1B BA BA 73 01 6B
  202.             02 20 6B 03 1F 5D 1C 6B 02 1F 73 02 73 03 5D 1D 5D 1E 5D 1F 5D 20
  203.             5D 21 5D 1E 5D 22 5D 23 5D 19 5D 1A 5E 18 73 02 5D 1B 5E 17 5E 17
  204.             73 01 6B 02 20 6B 03 1F 73 04 5D 19 5D 1A 5E 16 73 02 5D 1B BD BD
  205.             73 01 6B 02 20 6B 03 1F 73 04 73 03 5D 24 6B 02 1F 5D 25 6B 03 1F
  206.             73 03 73 04 59 05 19 09
  207.            )
  208.       4. 5. MACRO-CALL-ERROR &OPTIONAL &REST
  209.       "In the definition of ~S: &REST variable ~S should be a symbol."
  210.       "Only one variable is allowed after &REST, not ~S" &KEY &ALLOW-OTHER-KEYS
  211.       &AUX "Illegal in a DEFINE-MODIFY-MACRO lambda list: ~S"
  212.       "lambda list may only contain symbols and lists, not ~S" DEFMACRO
  213.       %REFERENCE (&ENVIRONMENT ENV) MULTIPLE-VALUE-BIND
  214.       (DUMMIES VALS NEWVAL SETTER GETTER) (GET-SETF-METHOD %REFERENCE ENV) DO
  215.       ((D DUMMIES (CDR D)) (V VALS (CDR V))
  216.        (LET-LIST NIL (CONS (LIST (CAR D) (CAR V)) LET-LIST))
  217.       )
  218.       (NULL D) WHEN (SYMBOLP GETTER) RETURN SUBST LIST* QUOTE GETTER
  219.       ((CAR NEWVAL) SETTER) PUSH LIST (CAR NEWVAL) IF
  220.       (AND (LISTP %REFERENCE) (EQ (CAR %REFERENCE) 'THE)) 'THE
  221.       (CADR %REFERENCE) (LET-LIST) ((LIST 'LET* (NREVERSE LET-LIST) SETTER))
  222.   )  )
  223. #Y(#:TOP-LEVEL-FORM-15
  224.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DECF
  225.    REMOVE-OLD-DEFINITIONS MACRO
  226.    #Y(DECF
  227.       #139Y(00 01 00 01 00 08 39 01 D4 AB 6A 63 D5 88 02 2F 80 4E 94 54 70 95
  228.             54 54 1B 80 4A C1 14 A9 AC 2E 04 3E 05 AC AC 5B 8A 02 13 8C 02 8C
  229.             02 8B 04 8B 04 73 02 7B 02 62 02 62 02 89 02 6D AB 85 2D 2C 8B 05
  230.             B2 86 34 05 8B 0A 23 06 31 D9 AD B3 5B 31 03 1F 14 73 02 7B 00 DB
  231.             A9 6A 65 AE 59 03 19 0D AA 2D 02 19 03 95 54 54 53 1A FF B0 D9 AC
  232.             B2 5B 6B 03 1F 8B 06 AE 36 03 2F D4 19 0D DA 9D 54 70 D9 AF B5 5B
  233.             6B 03 1F 59 03 1A 47
  234.            )
  235.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD - THE LET*
  236.   )  )
  237. #Y(#:TOP-LEVEL-FORM-16
  238.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) INCF
  239.    REMOVE-OLD-DEFINITIONS MACRO
  240.    #Y(INCF
  241.       #139Y(00 01 00 01 00 08 39 01 D4 AB 6A 63 D5 88 02 2F 80 4E 94 54 70 95
  242.             54 54 1B 80 4A C1 14 A9 AC 2E 04 3E 05 AC AC 5B 8A 02 13 8C 02 8C
  243.             02 8B 04 8B 04 73 02 7B 02 62 02 62 02 89 02 6D AB 85 2D 2C 8B 05
  244.             B2 86 34 05 8B 0A 23 06 31 D9 AD B3 5B 31 03 1F 14 73 02 7B 00 DB
  245.             A9 6A 65 AE 59 03 19 0D AA 2D 02 19 03 95 54 54 53 1A FF B0 D9 AC
  246.             B2 5B 6B 03 1F 8B 06 AE 36 03 2F D4 19 0D DA 9D 54 70 D9 AF B5 5B
  247.             6B 03 1F 59 03 1A 47
  248.            )
  249.       2. 3. MACRO-CALL-ERROR 1. GET-SETF-METHOD + THE LET*
  250.   )  )
  251. #Y(#:TOP-LEVEL-FORM-17
  252.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SETF
  253.    REMOVE-OLD-DEFINITIONS MACRO
  254.    #Y(SETF
  255.       #335Y(00 01 00 01 00 08 39 01 8C 02 A8 6A 63 A8 D4 88 01 2B 81 1A 8B 01
  256.             94 54 70 5B AA A8 94 21 81 05 92 1F 2C 8B 00 D6 36 01 78 98 04 1C
  257.             04 14 85 2D 23 8B 00 24 03 80 D4 A8 6A 63 24 04 80 CD D9 93 54 54
  258.             70 D7 95 54 70 AE 59 03 14 59 03 19 09 D5 A9 96 1A 76 AC 8C 01 AC
  259.             73 01 31 02 20 55 19 09 DA D9 94 54 70 DB AE 73 02 73 03 59 02 19
  260.             09 DE 8B 06 B4 73 02 94 72 6A 65 98 1A 80 89 15 16 01 1C 3C 1A 80
  261.             77 A8 B0 2E 08 3E 05 AC AC 5B 8A 02 0F 8B 02 8B 02 73 02 7B 00 7A
  262.             02 7A 01 89 02 71 AD 6A 63 23 09 49 96 1F 80 52 8B 04 24 0B 80 4C
  263.             AD 8C 05 89 01 27 93 51 1B 43 16 02 1C 3E E0 8C 05 6B 00 17 DE AA
  264.             6A 65 E1 AB B7 73 03 DF 96 72 59 04 19 12 8C 01 7A 01 62 01 8A 01
  265.             59 8A 00 56 92 53 1F 16 92 53 70 24 01 10 92 53 54 70 86 2D 09 92
  266.             53 54 54 70 94 53 21 5A 16 02 DE A9 6A 65 E2 B0 B6 B1 59 04 14 59
  267.             03 19 11 8B 00 24 06 07 A8 6A 63 23 00 FF 49 89 04 FF 6A 92 EB 14
  268.             B0 77 5E 00 1A FE F6 E3 AC 5A 01 E4 D9 AE 5A 02 A8 85 A9 77 A9 5B
  269.             8A 01 11 D9 8B 02 95 54 70 73 03 7B 00 93 54 54 EB 89 01 6F E5 A9
  270.             30 65 55 19 07
  271.            )
  272.       2. SETQ SETF-EXPANDER THE 3. SETF VALUES-LIST MULTIPLE-VALUE-LIST
  273.       GET-SETF-METHOD-MULTIPLE-VALUE 1. LET* VALUES #.#'SECOND
  274.       MULTIPLE-VALUE-SETQ MULTIPLE-VALUE-BIND "Illegal SETF place: ~S"
  275.       "~S called with an odd number of arguments: ~S" PROGN
  276.   )  )
  277. #Y(#:TOP-LEVEL-FORM-18
  278.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) SHIFTF
  279.    REMOVE-OLD-DEFINITIONS MACRO
  280.    #Y(SHIFTF
  281.       #106Y(00 01 00 01 00 08 39 01 8C 02 A8 6A 63 D4 87 01 2D 0A 36 01 6A A4
  282.             A9 01 02 AB 1A 31 D5 AC 5A 01 8B 03 B0 2E 02 3E 05 AC AC 8A 01 0F
  283.             8B 01 8B 01 73 02 7B 09 7A 01 7A 00 89 01 71 16 02 AD A9 73 02 7B
  284.             07 A9 7B 06 7E 02 05 16 05 7A 03 95 54 20 4F A8 8B 04 73 02 7B 02
  285.             D7 AB 6A 65 AB 6A 65 AF 73 01 6B 02 20 31 02 1F 19 09
  286.            )
  287.       2. "SHIFTF called with too few arguments: ~S" GET-SETF-METHOD LET*
  288.   )  )
  289. #Y(#:TOP-LEVEL-FORM-19
  290.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) AREF
  291.    SETF-EXPANDER -1.
  292.    #Y(SETF-AREF
  293.       #26Y(00 02 00 00 00 03 94 54 70 95 54 71 D4 AA AA AE 73 01 6B 02 20 31 02
  294.            1F 19 05
  295.           )
  296.       STORE
  297.      )
  298.    SETF %SET-DOCUMENTATION
  299.   )
  300. #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  301.    %SETNTH REMOVE-OLD-DEFINITIONS
  302.    #Y(%SETNTH
  303.       #25Y(00 03 00 00 00 04 AB AB 69 C4 8A 00 07 A8 AB 2F D0 94 19 05 D4 AD AD
  304.            5A 02
  305.           )
  306.       "(SETF (NTH ...) ...) : index ~S is too large for ~S"
  307.   )  )
  308. #Y(#:TOP-LEVEL-FORM-21
  309.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) NTH
  310.    SETF-EXPANDER %SETNTH SETF %SET-DOCUMENTATION
  311.   )
  312. #Y(#:TOP-LEVEL-FORM-22
  313.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) ELT
  314.    SETF-EXPANDER %SETELT SETF %SET-DOCUMENTATION
  315.   )
  316. #Y(#:TOP-LEVEL-FORM-23
  317.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) REST
  318.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  319.   )
  320. #Y(#:TOP-LEVEL-FORM-24
  321.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) FIRST
  322.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  323.   )
  324. #Y(#:TOP-LEVEL-FORM-25
  325.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  326.    SECOND SETF-EXPANDER -1.
  327.    #Y(SETF-SECOND
  328.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  329.       CDR
  330.      )
  331.    SETF %SET-DOCUMENTATION
  332.   )
  333. #Y(#:TOP-LEVEL-FORM-26
  334.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  335.    THIRD SETF-EXPANDER -1.
  336.    #Y(SETF-THIRD #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  337.       %RPLACA CDDR
  338.      )
  339.    SETF %SET-DOCUMENTATION
  340.   )
  341. #Y(#:TOP-LEVEL-FORM-27
  342.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  343.    FOURTH SETF-EXPANDER -1.
  344.    #Y(SETF-FOURTH
  345.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  346.       CDDDR
  347.      )
  348.    SETF %SET-DOCUMENTATION
  349.   )
  350. #Y(#:TOP-LEVEL-FORM-28
  351.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  352.    FIFTH SETF-EXPANDER -1.
  353.    #Y(SETF-FIFTH #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  354.       %RPLACA CDDDDR
  355.      )
  356.    SETF %SET-DOCUMENTATION
  357.   )
  358. #Y(#:TOP-LEVEL-FORM-29
  359.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  360.    SIXTH SETF-EXPANDER -1.
  361.    #Y(SETF-SIXTH
  362.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 D6 AB 73 02 73 02 AC 59 03 19 04)
  363.       %RPLACA CDR CDDDDR
  364.      )
  365.    SETF %SET-DOCUMENTATION
  366.   )
  367. #Y(#:TOP-LEVEL-FORM-30
  368.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  369.    SEVENTH SETF-EXPANDER -1.
  370.    #Y(SETF-SEVENTH
  371.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 D6 AB 73 02 73 02 AC 59 03 19 04)
  372.       %RPLACA CDDR CDDDDR
  373.      )
  374.    SETF %SET-DOCUMENTATION
  375.   )
  376. #Y(#:TOP-LEVEL-FORM-31
  377.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  378.    EIGHTH SETF-EXPANDER -1.
  379.    #Y(SETF-EIGHTH
  380.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 D6 AB 73 02 73 02 AC 59 03 19 04)
  381.       %RPLACA CDDDR CDDDDR
  382.      )
  383.    SETF %SET-DOCUMENTATION
  384.   )
  385. #Y(#:TOP-LEVEL-FORM-32
  386.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  387.    NINTH SETF-EXPANDER -1.
  388.    #Y(SETF-NINTH
  389.       #22Y(00 02 00 00 00 03 94 54 70 D4 D5 D5 AB 73 02 73 02 AC 59 03 19 04)
  390.       %RPLACA CDDDDR
  391.      )
  392.    SETF %SET-DOCUMENTATION
  393.   )
  394. #Y(#:TOP-LEVEL-FORM-33
  395.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  396.    TENTH SETF-EXPANDER -1.
  397.    #Y(SETF-TENTH
  398.       #25Y(00 02 00 00 00 03 94 54 70 D4 D5 D6 D6 AC 73 02 73 02 73 02 AC 59 03
  399.            19 04
  400.           )
  401.       %RPLACA CDR CDDDDR
  402.      )
  403.    SETF %SET-DOCUMENTATION
  404.   )
  405. #Y(#:TOP-LEVEL-FORM-34
  406.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) CAR
  407.    SETF-EXPANDER %RPLACA SETF %SET-DOCUMENTATION
  408.   )
  409. #Y(#:TOP-LEVEL-FORM-35
  410.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) CDR
  411.    SETF-EXPANDER %RPLACD SETF %SET-DOCUMENTATION
  412.   )
  413. #Y(#:TOP-LEVEL-FORM-36
  414.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) CAAR
  415.    SETF-EXPANDER -1.
  416.    #Y(SETF-CAAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  417.       %RPLACA CAR
  418.      )
  419.    SETF %SET-DOCUMENTATION
  420.   )
  421. #Y(#:TOP-LEVEL-FORM-37
  422.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) CADR
  423.    SETF-EXPANDER -1.
  424.    #Y(SETF-CADR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  425.       %RPLACA CDR
  426.      )
  427.    SETF %SET-DOCUMENTATION
  428.   )
  429. #Y(#:TOP-LEVEL-FORM-38
  430.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) CDAR
  431.    SETF-EXPANDER -1.
  432.    #Y(SETF-CDAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  433.       %RPLACD CAR
  434.      )
  435.    SETF %SET-DOCUMENTATION
  436.   )
  437. #Y(#:TOP-LEVEL-FORM-39
  438.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) CDDR
  439.    SETF-EXPANDER -1.
  440.    #Y(SETF-CDDR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  441.       %RPLACD CDR
  442.      )
  443.    SETF %SET-DOCUMENTATION
  444.   )
  445. #Y(#:TOP-LEVEL-FORM-40
  446.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  447.    CAAAR SETF-EXPANDER -1.
  448.    #Y(SETF-CAAAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  449.       %RPLACA CAAR
  450.      )
  451.    SETF %SET-DOCUMENTATION
  452.   )
  453. #Y(#:TOP-LEVEL-FORM-41
  454.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  455.    CAADR SETF-EXPANDER -1.
  456.    #Y(SETF-CAADR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  457.       %RPLACA CADR
  458.      )
  459.    SETF %SET-DOCUMENTATION
  460.   )
  461. #Y(#:TOP-LEVEL-FORM-42
  462.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  463.    CADAR SETF-EXPANDER -1.
  464.    #Y(SETF-CADAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  465.       %RPLACA CDAR
  466.      )
  467.    SETF %SET-DOCUMENTATION
  468.   )
  469. #Y(#:TOP-LEVEL-FORM-43
  470.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  471.    CADDR SETF-EXPANDER -1.
  472.    #Y(SETF-CADDR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  473.       %RPLACA CDDR
  474.      )
  475.    SETF %SET-DOCUMENTATION
  476.   )
  477. #Y(#:TOP-LEVEL-FORM-44
  478.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  479.    CDAAR SETF-EXPANDER -1.
  480.    #Y(SETF-CDAAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  481.       %RPLACD CAAR
  482.      )
  483.    SETF %SET-DOCUMENTATION
  484.   )
  485. #Y(#:TOP-LEVEL-FORM-45
  486.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  487.    CDADR SETF-EXPANDER -1.
  488.    #Y(SETF-CDADR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  489.       %RPLACD CADR
  490.      )
  491.    SETF %SET-DOCUMENTATION
  492.   )
  493. #Y(#:TOP-LEVEL-FORM-46
  494.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  495.    CDDAR SETF-EXPANDER -1.
  496.    #Y(SETF-CDDAR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  497.       %RPLACD CDAR
  498.      )
  499.    SETF %SET-DOCUMENTATION
  500.   )
  501. #Y(#:TOP-LEVEL-FORM-47
  502.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  503.    CDDDR SETF-EXPANDER -1.
  504.    #Y(SETF-CDDDR #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04)
  505.       %RPLACD CDDR
  506.      )
  507.    SETF %SET-DOCUMENTATION
  508.   )
  509. #Y(#:TOP-LEVEL-FORM-48
  510.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  511.    CAAAAR SETF-EXPANDER -1.
  512.    #Y(SETF-CAAAAR
  513.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  514.       CAAAR
  515.      )
  516.    SETF %SET-DOCUMENTATION
  517.   )
  518. #Y(#:TOP-LEVEL-FORM-49
  519.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  520.    CAAADR SETF-EXPANDER -1.
  521.    #Y(SETF-CAAADR
  522.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  523.       CAADR
  524.      )
  525.    SETF %SET-DOCUMENTATION
  526.   )
  527. #Y(#:TOP-LEVEL-FORM-50
  528.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  529.    CAADAR SETF-EXPANDER -1.
  530.    #Y(SETF-CAADAR
  531.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  532.       CADAR
  533.      )
  534.    SETF %SET-DOCUMENTATION
  535.   )
  536. #Y(#:TOP-LEVEL-FORM-51
  537.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  538.    CAADDR SETF-EXPANDER -1.
  539.    #Y(SETF-CAADDR
  540.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  541.       CADDR
  542.      )
  543.    SETF %SET-DOCUMENTATION
  544.   )
  545. #Y(#:TOP-LEVEL-FORM-52
  546.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  547.    CADAAR SETF-EXPANDER -1.
  548.    #Y(SETF-CADAAR
  549.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  550.       CDAAR
  551.      )
  552.    SETF %SET-DOCUMENTATION
  553.   )
  554. #Y(#:TOP-LEVEL-FORM-53
  555.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  556.    CADADR SETF-EXPANDER -1.
  557.    #Y(SETF-CADADR
  558.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  559.       CDADR
  560.      )
  561.    SETF %SET-DOCUMENTATION
  562.   )
  563. #Y(#:TOP-LEVEL-FORM-54
  564.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  565.    CADDAR SETF-EXPANDER -1.
  566.    #Y(SETF-CADDAR
  567.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  568.       CDDAR
  569.      )
  570.    SETF %SET-DOCUMENTATION
  571.   )
  572. #Y(#:TOP-LEVEL-FORM-55
  573.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  574.    CADDDR SETF-EXPANDER -1.
  575.    #Y(SETF-CADDDR
  576.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACA
  577.       CDDDR
  578.      )
  579.    SETF %SET-DOCUMENTATION
  580.   )
  581. #Y(#:TOP-LEVEL-FORM-56
  582.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  583.    CDAAAR SETF-EXPANDER -1.
  584.    #Y(SETF-CDAAAR
  585.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  586.       CAAAR
  587.      )
  588.    SETF %SET-DOCUMENTATION
  589.   )
  590. #Y(#:TOP-LEVEL-FORM-57
  591.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  592.    CDAADR SETF-EXPANDER -1.
  593.    #Y(SETF-CDAADR
  594.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  595.       CAADR
  596.      )
  597.    SETF %SET-DOCUMENTATION
  598.   )
  599. #Y(#:TOP-LEVEL-FORM-58
  600.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  601.    CDADAR SETF-EXPANDER -1.
  602.    #Y(SETF-CDADAR
  603.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  604.       CADAR
  605.      )
  606.    SETF %SET-DOCUMENTATION
  607.   )
  608. #Y(#:TOP-LEVEL-FORM-59
  609.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  610.    CDADDR SETF-EXPANDER -1.
  611.    #Y(SETF-CDADDR
  612.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  613.       CADDR
  614.      )
  615.    SETF %SET-DOCUMENTATION
  616.   )
  617. #Y(#:TOP-LEVEL-FORM-60
  618.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  619.    CDDAAR SETF-EXPANDER -1.
  620.    #Y(SETF-CDDAAR
  621.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  622.       CDAAR
  623.      )
  624.    SETF %SET-DOCUMENTATION
  625.   )
  626. #Y(#:TOP-LEVEL-FORM-61
  627.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  628.    CDDADR SETF-EXPANDER -1.
  629.    #Y(SETF-CDDADR
  630.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  631.       CDADR
  632.      )
  633.    SETF %SET-DOCUMENTATION
  634.   )
  635. #Y(#:TOP-LEVEL-FORM-62
  636.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  637.    CDDDAR SETF-EXPANDER -1.
  638.    #Y(SETF-CDDDAR
  639.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  640.       CDDAR
  641.      )
  642.    SETF %SET-DOCUMENTATION
  643.   )
  644. #Y(#:TOP-LEVEL-FORM-63
  645.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  646.    CDDDDR SETF-EXPANDER -1.
  647.    #Y(SETF-CDDDDR
  648.       #19Y(00 02 00 00 00 03 94 54 70 D4 D5 AA 73 02 AC 59 03 19 04) %RPLACD
  649.       CDDDR
  650.      )
  651.    SETF %SET-DOCUMENTATION
  652.   )
  653. #Y(#:TOP-LEVEL-FORM-64
  654.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) SVREF
  655.    SETF-EXPANDER SVSTORE SETF %SET-DOCUMENTATION
  656.   )
  657. #Y(#:TOP-LEVEL-FORM-65
  658.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01) GET
  659.    SETF-EXPANDER -1.
  660.    #Y(SETF-GET
  661.       #37Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 54 70 D4 AB AB AF 73
  662.            04 89 01 03 15 19 06 D5 AA AA 59 03 19 07
  663.           )
  664.       %PUT PROGN
  665.      )
  666.    SETF %SET-DOCUMENTATION
  667.   )
  668. #Y(#:TOP-LEVEL-FORM-66 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  669.    %PUTF REMOVE-OLD-DEFINITIONS
  670.    #Y(%PUTF
  671.       #44Y(00 03 00 00 00 04 AB 1A 18 D4 5A 00 8C 00 AB 2F D0 00 19 05 92 54 1F
  672.            71 8B 00 96 21 6F 92 54 54 EA 92 20 70 AB AB AE 31 02 1F 19 05
  673.           )
  674.       "(SETF (GETF ...) ...) : property list with an odd length"
  675.   )  )
  676. #Y(#:TOP-LEVEL-FORM-67
  677.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  678.         2B 03 07 C1 19 01
  679.        )
  680.    #1=#:SETF-GETF REMOVE-OLD-DEFINITIONS
  681.    #Y(#1#
  682.       #133Y(00 02 00 00 00 03 D4 AB 6A 63 D5 88 02 2F 80 5D 94 54 70 95 54 54
  683.             70 96 54 54 54 70 AA AD 2E 04 3E 05 36 01 6A A4 36 01 6A A4 89 07
  684.             80 48 00 14 AF AA 94 72 6B 02 20 AF B3 89 0B 80 42 00 72 6B 02 20
  685.             AC 73 01 D9 8B 09 DA B1 B0 B2 73 04 73 02 73 01 AD DB 8B 0C B4 73
  686.             03 B1 73 02 6B 02 20 6B 02 1F D7 B0 AF AF 6B 03 1F 3C 05 19 0E D6
  687.             D7 AC 6A 63 6A AC 5A 02 36 01 6A A4 59 01 1A FF B0 14 59 01 1A FF
  688.             B9
  689.            )
  690.       3. 4. "The SETF expander for ~S may not be called with ~S arguments."
  691.       GETF GET-SETF-METHOD LET %PUTF WHEN
  692.      )
  693.    GETF SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  694.   )
  695. #Y(#:TOP-LEVEL-FORM-68
  696.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  697.    GETHASH SETF-EXPANDER -1.
  698.    #Y(SETF-GETHASH
  699.       #37Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 54 70 D4 AB AB AF 73
  700.            04 89 01 03 15 19 06 D5 AA AA 59 03 19 07
  701.           )
  702.       PUTHASH PROGN
  703.      )
  704.    SETF %SET-DOCUMENTATION
  705.   )
  706. #Y(#:TOP-LEVEL-FORM-69
  707.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 02 BE 19 01)
  708.    DOCUMENTATION SETF-EXPANDER %SET-DOCUMENTATION SETF
  709.   )
  710. #Y(#:TOP-LEVEL-FORM-70
  711.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  712.    FILL-POINTER SETF-EXPANDER SET-FILL-POINTER SETF %SET-DOCUMENTATION
  713.   )
  714. #Y(#:TOP-LEVEL-FORM-71
  715.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  716.    SYMBOL-VALUE SETF-EXPANDER SET SETF %SET-DOCUMENTATION
  717.   )
  718. #Y(#:TOP-LEVEL-FORM-72
  719.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  720.    SYMBOL-FUNCTION SETF-EXPANDER %PUTD SETF %SET-DOCUMENTATION
  721.   )
  722. #Y(#:TOP-LEVEL-FORM-73
  723.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  724.    SYMBOL-PLIST SETF-EXPANDER %PUTPLIST SETF %SET-DOCUMENTATION
  725.   )
  726. #Y(#:TOP-LEVEL-FORM-74
  727.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  728.    MACRO-FUNCTION SETF-EXPANDER -1.
  729.    #Y(SETF-MACRO-FUNCTION
  730.       #33Y(00 02 00 00 00 03 94 54 70 D4 D5 D6 AB 73 02 D7 D8 AF 73 03 73 03 D9
  731.            AB DA 6B 02 1F AD 59 04 19 04
  732.           )
  733.       PROGN SETF SYMBOL-FUNCTION CONS 'MACRO REMPROP ('MACRO)
  734.      )
  735.    SETF %SET-DOCUMENTATION
  736.   )
  737. #Y(#:TOP-LEVEL-FORM-75
  738.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) CHAR
  739.    SETF-EXPANDER STORE-CHAR SETF %SET-DOCUMENTATION
  740.   )
  741. #Y(#:TOP-LEVEL-FORM-76
  742.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) SCHAR
  743.    SETF-EXPANDER STORE-SCHAR SETF %SET-DOCUMENTATION
  744.   )
  745. #Y(#:TOP-LEVEL-FORM-77
  746.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) BIT
  747.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  748.   )
  749. #Y(#:TOP-LEVEL-FORM-78
  750.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01) SBIT
  751.    SETF-EXPANDER STORE SETF %SET-DOCUMENTATION
  752.   )
  753. #Y(#:TOP-LEVEL-FORM-79
  754.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  755.    SUBSEQ SETF-EXPANDER -1.
  756.    #Y(SETF-SUBSEQ
  757.       #33Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 54 70 D4 D5 AC AF D6
  758.            AE D7 AF 73 07 AE 59 03 19 06
  759.           )
  760.       PROGN REPLACE :START1 :END1
  761.      )
  762.    SETF %SET-DOCUMENTATION
  763.   )
  764. #Y(#:TOP-LEVEL-FORM-80
  765.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  766.         2B 03 07 C1 19 01
  767.        )
  768.    #1=#:SETF-CHAR-BIT REMOVE-OLD-DEFINITIONS
  769.    #Y(#1#
  770.       #88Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2C 80 40 94 54 70 95 54 54 70 A9
  771.            AC 2E 03 3E 05 36 01 6A A4 36 01 6A A4 AE AA 73 01 6B 02 20 AE B1 73
  772.            01 6B 02 20 AA 73 01 D8 8B 08 D9 B0 B0 B0 73 04 73 02 73 01 B0 AE 73
  773.            04 D6 AF AF 73 03 3C 05 19 0C D5 D6 AC 6A 63 6A AC 5A 02
  774.           )
  775.       3. "The SETF expander for ~S may not be called with ~S arguments."
  776.       CHAR-BIT GET-SETF-METHOD LET SET-CHAR-BIT
  777.      )
  778.    CHAR-BIT SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  779.   )
  780. #Y(#:TOP-LEVEL-FORM-81
  781.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  782.         2B 03 07 C1 19 01
  783.        )
  784.    #1=#:SETF-LDB REMOVE-OLD-DEFINITIONS
  785.    #Y(#1#
  786.       #79Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2C 38 94 54 70 95 54 54 70 A8 AC
  787.            2E 03 3E 05 36 01 6A A4 36 01 6A A4 A9 99 72 B1 99 72 AA 73 01 D8 8B
  788.            08 D9 AE B0 B2 73 04 73 02 73 01 B0 AE 73 04 D6 AE B0 73 03 3C 05 19
  789.            0C D5 D6 AC 6A 63 6A AC 5A 02
  790.           )
  791.       3. "The SETF expander for ~S may not be called with ~S arguments." LDB
  792.       GET-SETF-METHOD LET DPB
  793.      )
  794.    LDB SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  795.   )
  796. #Y(#:TOP-LEVEL-FORM-82
  797.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  798.         2B 03 07 C1 19 01
  799.        )
  800.    #1=#:SETF-MASK-FIELD REMOVE-OLD-DEFINITIONS
  801.    #Y(#1#
  802.       #79Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2C 38 94 54 70 95 54 54 70 A8 AC
  803.            2E 03 3E 05 36 01 6A A4 36 01 6A A4 A9 99 72 B1 99 72 AA 73 01 D8 8B
  804.            08 D9 AE B0 B2 73 04 73 02 73 01 B0 AE 73 04 D6 AE B0 73 03 3C 05 19
  805.            0C D5 D6 AC 6A 63 6A AC 5A 02
  806.           )
  807.       3. "The SETF expander for ~S may not be called with ~S arguments."
  808.       MASK-FIELD GET-SETF-METHOD LET DEPOSIT-FIELD
  809.      )
  810.    MASK-FIELD SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  811.   )
  812. #Y(#:TOP-LEVEL-FORM-83
  813.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  814.         2B 03 07 C1 19 01
  815.        )
  816.    #1=#:SETF-THE REMOVE-OLD-DEFINITIONS
  817.    #Y(#1#
  818.       #61Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2C 26 94 54 70 95 54 54 70 A8 AC
  819.            2E 03 3E 05 AC AC AC D6 B2 8B 07 73 03 8B 06 AE 36 03 69 D4 D6 B3 AE
  820.            73 03 3C 05 19 0A D5 D6 AC 6A 63 6A AC 5A 02
  821.           )
  822.       3. "The SETF expander for ~S may not be called with ~S arguments." THE
  823.       GET-SETF-METHOD
  824.      )
  825.    THE SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  826.   )
  827. #Y(#:TOP-LEVEL-FORM-84
  828.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  829.         2B 03 07 C1 19 01
  830.        )
  831.    #1=#:SETF-APPLY REMOVE-OLD-DEFINITIONS
  832.    #Y(#1#
  833.       #121Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2D 80 5A 94 54 70 95 54 71 A9
  834.             86 34 80 58 A9 69 B7 24 00 80 51 8B 01 24 03 80 4B 93 54 70 86 2D
  835.             80 44 93 54 53 EB A9 93 72 AC 2E 05 3E 05 AD 2F C5 70 AC 2F C5 53
  836.             22 31 00 29 01 AD 2F C5 53 0B 00 00 92 29 01 A8 2A 07 01 0B 00 00
  837.             A8 65 08 01 AF AF AF AF 96 6C AF 97 6C 3C 05 19 0D D5 D6 AC 6A 63
  838.             6A AC 5A 02 D8 5A 00 DA AF 5A 01
  839.            )
  840.       2. "The SETF expander for ~S may not be called with ~S arguments." APPLY
  841.       FUNCTION "SETF APPLY is only defined for functions of the form #'symbol."
  842.       GET-SETF-METHOD "APPLY on ~S is not a SETF place."
  843.       #Y(SPLICE
  844.          #40Y(00 01 00 00 00 02 A9 83 B6 13 8C 01 64 78 8B 02 61 01 00 85 28 0A
  845.               8B 02 A9 2E 02 19 03 00 19 02 61 01 00 A9 2E 01 19 03
  846.              )
  847.          NIL BACKQUOTE-APPEND BACKQUOTE-CONS
  848.         )
  849.       #Y(CALL-SPLICING
  850.          #62Y(00 01 00 00 00 02 8B 01 8C 02 07 00 00 6C 8A 00 23 92 1F 05 8B 00
  851.               23 01 1B D6 D7 AB 73 02 94 1F 0A 8B 02 23 04 14 8B 02 23 05 0F AA
  852.               59 01 14 31 02 1F 19 04 A9 93 54 55 19 04 94 54 1A 70
  853.              )
  854.          NIL LIST APPLY FUNCTION LIST* CONS
  855.      )  )
  856.    APPLY SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  857.   )
  858. #Y(#:TOP-LEVEL-FORM-85
  859.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  860.         2B 03 07 C1 19 01
  861.        )
  862.    #1=#:SETF-FUNCALL REMOVE-OLD-DEFINITIONS
  863.    #Y(#1#
  864.       #80Y(00 02 00 00 00 03 AA 6A 63 D4 87 01 2D 2F 94 54 70 95 54 71 A9 86 34
  865.            35 A9 69 B7 24 00 2F 8B 01 A8 C1 52 1C 21 16 01 1C 24 93 54 70 86 2D
  866.            1E 93 54 53 EB 1C 18 A9 93 72 AC 2E 06 19 05 D5 D6 AC 6A 63 6A AC 5A
  867.            02 A8 C2 52 16 01 1B 5C D9 5A 00
  868.           )
  869.       2. "The SETF expander for ~S may not be called with ~S arguments."
  870.       FUNCALL FUNCTION QUOTE
  871.       "SETF FUNCALL is only defined for functions of the form #'symbol."
  872.       GET-SETF-METHOD
  873.      )
  874.    FUNCALL SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  875.   )
  876. #Y(#:TOP-LEVEL-FORM-86
  877.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  878.    GET-DISPATCH-MACRO-CHARACTER SETF-EXPANDER -1.
  879.    #Y(SETF-GET-DISPATCH-MACRO-CHARACTER
  880.       #41Y(00 02 00 00 00 03 94 54 70 95 54 54 70 96 54 54 54 1B 0F BE 14 D5 D6
  881.            AC AC B0 AD 73 05 AE 59 03 19 06 96 54 54 54 53 1A 6B
  882.           )
  883.       *READTABLE* PROGN SET-DISPATCH-MACRO-CHARACTER
  884.      )
  885.    SETF %SET-DOCUMENTATION
  886.   )
  887. #Y(#:TOP-LEVEL-FORM-87
  888.    #20Y(00 00 00 00 00 01 D4 D5 D6 30 9C D4 D7 5B 2B 03 04 BE 19 01)
  889.    LONG-FLOAT-DIGITS SETF-EXPANDER %SET-LONG-FLOAT-DIGITS SETF
  890.    %SET-DOCUMENTATION
  891.   )
  892. #Y(#:TOP-LEVEL-FORM-88
  893.    #22Y(00 00 00 00 00 01 D4 D5 D6 C1 72 30 9C D4 D8 5B 2B 03 05 BE 19 01)
  894.    DEFAULT-DIRECTORY SETF-EXPANDER -1.
  895.    #Y(SETF-DEFAULT-DIRECTORY
  896.       #16Y(00 02 00 00 00 03 D4 D5 AB 73 02 AB 59 03 19 03) PROGN CD
  897.      )
  898.    SETF %SET-DOCUMENTATION
  899.   )
  900. #Y(#:TOP-LEVEL-FORM-89
  901.    #30Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 D7 D8 D9 8F 00 72 30 9C D7 DA 5B
  902.         2B 03 07 C1 19 01
  903.        )
  904.    #1=#:SETF-VALUES REMOVE-OLD-DEFINITIONS
  905.    #Y(#1#
  906.       #81Y(00 02 00 00 00 03 8C 02 01 05 AD 1A 20 8B 00 7A 01 B1 2E 00 3E 05 AC
  907.            B3 77 CA 0A AB B2 77 CA 09 AA B1 77 CA 08 A9 7B 07 A8 7B 06 16 05 92
  908.            20 5D AD 78 65 05 AC 78 65 04 AB 78 65 03 AA 78 65 02 A9 78 65 01 AD
  909.            AD AD D5 98 72 D5 98 72 3C 05 19 0A
  910.           )
  911.       GET-SETF-METHOD VALUES
  912.      )
  913.    VALUES SETF-EXPANDER -5. SETF %SET-DOCUMENTATION
  914.   )